(*---------------------------------------------------------------------------
    :Program.    Timer2.def
    :Author.     Bernd Preusing
    :Address.    Gerhardstr. 16  D-2200 Elmshorn
    :Phone.      04121/22486
    :Shortcut.   [bep]
    :Version.    1.0
    :Date.       21-Oct-88
    :Copyright.  PD
    :Language.   Modula-II
    :Translator. M2Amiga
    :Imports.    ---
    :UpDate.     
    :Contents.   Procedures to handle time and date.
    :Remark.     
---------------------------------------------------------------------------*)
DEFINITION MODULE Timer2;

IMPORT Timer;

TYPE
   TimeVal = Timer.TimeVal;


PROCEDURE AddTime(VAR dest,source: TimeVal); (* dest:=dest+source *)
PROCEDURE SubTime(VAR dest,source: TimeVal); (* dest:=dest-source *)
PROCEDURE CmpTime(VAR d1,d2: TimeVal): INTEGER;
	(* -1: d2<d1  1: d2>d1  0: d2=d1 *)

PROCEDURE GetSysTime(VAR t: TimeVal);

(* zur Zeitmessung *)
PROCEDURE StartTime();
PROCEDURE StopTime(VAR t: TimeVal); (* Differenz seit StartTime *)


END Timer2.def
